home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / FWCalendar.lha / gui4cli.lha / Gui4Cli / Tools / Icon.gc < prev    next >
Encoding:
Gui4CLI script  |  1998-07-06  |  518 b   |  37 lines
  1. G4C - Shows given icon
  2.  
  3. WinBig -1 -1 200 100 IconView
  4. WinType 01000001
  5. ; WinBackground SOLID 3 0
  6.  
  7. BOX 0 0 0 0 out button
  8.  
  9. xOnLoad icon
  10. guiopen icon.gc $icon
  11.  
  12. xOnReload icon
  13. delay 20
  14. extract icon file name
  15. setwintitle icon.gc '$name                        '
  16. ChangeIcon icon.gc 1 -1 -1 $icon
  17.  
  18. xOnOpen icon
  19. extract icon file name
  20. setwintitle icon.gc '$name                        '
  21. ChangeIcon icon.gc 1 -1 -1 $icon
  22.  
  23. xOnClose
  24. guiquit icon.gc
  25.  
  26. xOnRMB
  27. guiquit icon.gc
  28.  
  29. xOnInactive
  30. guiquit icon.gc
  31.  
  32. xIcon 10 10 ""
  33. GadID 1
  34.  
  35.  
  36.  
  37.